home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / RoboWar •••• / Robots Folder / Robot B2 / Robot B2 next >
Text File  |  1990-05-18  |  616b  |  41 lines
  1. {I most sincerely dedicate this robot to ex-president Zaphod Beeblebrox.}
  2.  
  3. #1/21/90 by David Wasserman
  4.  
  5. random aim' store
  6. -5 speedx' store
  7. 2 speedy' store
  8. main:
  9.   x 270 > rside if 
  10.   x 45 < lside if
  11.   y 275 > dside if
  12.   y 15 < uside if
  13.   collision spin if
  14.   aim 26 + aim' store
  15.   range 0 > shoot if
  16.   main jump
  17. rside:
  18.   -5 speedx' store
  19.   return
  20. lside:
  21.   3 speedx' store
  22.   return
  23. dside:
  24.   -1 speedy' store
  25.   return
  26. uside:
  27.   2 speedy' store
  28.   return
  29. spin:
  30.   aim 59 + aim' store
  31.   0 range < shoot if
  32.   0 collision = normal if
  33.   spin jump
  34. normal:
  35.   drop
  36.   return
  37. shoot:
  38.   50 missile' store
  39.   50 missile' store
  40.   return
  41.